<!--#include file="Librerias/mssql-ds.dll" -->

<%
unidadOrganizacionalId = Session("auth_granted_poa_unidad")

'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")


sSQL = ""
sSQL = sSQL & " SELECT aper_id, aper_programa, aper_proyecto, aper_actividad, aper_descripcion, aper_ponderacion"
sSQL = sSQL & " FROM AperturaProgramatica"
sSQL = sSQL & " WHERE unidad_id =" & unidadOrganizacionalId
'response.Write sSQL
MatrizApertura = MatrixBD(sSQL, 1)
If VarType(MatrizApertura) = 8  then
  QApertura = -1
Else
  QApertura = UBound(MatrizApertura,2)	
End If

%>

<!-- Pagina de inicio -->

<%
qPrograma = request.QueryString("qPrograma")
if qPrograma = "" then qPrograma = 0 
%>
<%
  MesActivo = Session("auth_granted_poa_mes")
  'response.Write MesActivo
  If Len(MesActivo) = 0 Then MesActivo = 0 
  MesActivo = CInt(MesActivo)
%>
<% Select Case MesActivo %>
<% Case 0 : %>
<%
  qMes = "-"
%>
<% Case 1 : %>
<%
  qMes = "ENERO"
%>
<% Case 2 : %>
<%
  qMes = "FEBRERO"
%>
<% Case 3 : %>
<%
  qMes = "MARZO"
%>
<% Case 4 : %>
<%
  qMes = "ABRIL"
%>
<% Case 5 : %>
<%
  qMes = "MAYO"
%>
<% Case 6 : %>
<%
  qMes = "JUNIO"
%>
<% Case 7 : %>
<%
  qMes = "JULIO"
%>
<% Case 8 : %>
<%
  qMes = "AGOSTO"
%>
<% Case 9 : %>
<%
  qMes = "SEPTIEMBRE"
%>
<% Case 10 : %>
<%
  qMes = "OCTUBRE"
%>
<% Case 11 : %>
<%
  qMes = "NOVIEMBRE"
%>
<% Case 12 : %>
<%
  qMes = "DICIEMBRE"
%>
<% Case Else : %>
<%
  qMes = "DICIEMBRE"
%>
<% End Select %>

<%

GranSumPA1p = 0
            GranSumPA2p = 0
            GranSumPA3p = 0
            GranSumPA4p = 0
            GranSumPA5p = 0
            GranSumPA6p = 0
            GranSumPA7p = 0
            GranSumPA8p = 0
            GranSumPA9p = 0
            GranSumPA10p = 0
            GranSumPA11p = 0
            GranSumPA12p = 0
            
            GranSumEA1p = 0
            GranSumEA2p = 0
            GranSumEA3p = 0
            GranSumEA4p = 0
            GranSumEA5p = 0
            GranSumEA6p = 0
            GranSumEA7p = 0
            GranSumEA8p = 0
            GranSumEA9p = 0
            GranSumEA10p = 0
            GranSumEA11p = 0
            GranSumEA12p = 0

        
        sSQL = ""
                sSQL = sSQL & " SELECT pope"& qGestion &"_id, p"& qGestion &"_id, pope"& qGestion &"_codigo, pope"& qGestion &"_producto,"
                sSQL = sSQL & " pope"& qGestion &"_usuario, pope"& qGestion &"_objetivo, indi_id, pope"& qGestion &"_indicador,"
                sSQL = sSQL & " pope"& qGestion &"_formula, pope"& qGestion &"_linea_base, pope"& qGestion &"_meta,"
                sSQL = sSQL & " pope"& qGestion &"_fuente_verificacion, pope"& qGestion &"_metodo, pope"& qGestion &"_tendencia,"
                sSQL = sSQL & " pope"& qGestion &"_supuestos, pope"& qGestion &"_presupuesto, pope"& qGestion &"_ponderacion, uni_id, aper_id,"
                
                ' absoluto PROG
                ' pos : 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30
                sSQL = sSQL & " pope"& qGestion &"_1P, pope"& qGestion &"_2P, pope"& qGestion &"_3P, pope"& qGestion &"_4P, pope"& qGestion &"_5P, pope"& qGestion &"_6P, pope"& qGestion &"_7P, pope"& qGestion &"_8P, pope"& qGestion &"_9P, pope"& qGestion &"_10P, pope"& qGestion &"_11P, pope"& qGestion &"_12P,"
                ' absoluto EJEC
                ' pos : 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42
                sSQL = sSQL & " pope"& qGestion &"_1E, pope"& qGestion &"_2E, pope"& qGestion &"_3E, pope"& qGestion &"_4E, pope"& qGestion &"_5E, pope"& qGestion &"_6E, pope"& qGestion &"_7E, pope"& qGestion &"_8E, pope"& qGestion &"_9E, pope"& qGestion &"_10E, pope"& qGestion &"_11E, pope"& qGestion &"_12E,"
                
                ' calidad PROG
                ' pos : 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54
                sSQL = sSQL & " pope"& qGestion &"_1_cal1_p, pope"& qGestion &"_2_cal1_p, pope"& qGestion &"_3_cal1_p, pope"& qGestion &"_4_cal1_p, pope"& qGestion &"_5_cal1_p, pope"& qGestion &"_6_cal1_p, pope"& qGestion &"_7_cal1_p, pope"& qGestion &"_8_cal1_p, pope"& qGestion &"_9_cal1_p, pope"& qGestion &"_10_cal1_p, pope"& qGestion &"_11_cal1_p, pope"& qGestion &"_12_cal1_p,"
                
                ' pos : 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66
                sSQL = sSQL & " pope"& qGestion &"_1_cal2_p, pope"& qGestion &"_2_cal2_p, pope"& qGestion &"_3_cal2_p, pope"& qGestion &"_4_cal2_p, pope"& qGestion &"_5_cal2_p, pope"& qGestion &"_6_cal2_p, pope"& qGestion &"_7_cal2_p, pope"& qGestion &"_8_cal2_p, pope"& qGestion &"_9_cal2_p, pope"& qGestion &"_10_cal2_p, pope"& qGestion &"_11_cal2_p, pope"& qGestion &"_12_cal2_p,"
                
                ' pos : 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78
                sSQL = sSQL & " pope"& qGestion &"_1_cal3_p, pope"& qGestion &"_2_cal3_p, pope"& qGestion &"_3_cal3_p, pope"& qGestion &"_4_cal3_p, pope"& qGestion &"_5_cal3_p, pope"& qGestion &"_6_cal3_p, pope"& qGestion &"_7_cal3_p, pope"& qGestion &"_8_cal3_p, pope"& qGestion &"_9_cal3_p, pope"& qGestion &"_10_cal3_p, pope"& qGestion &"_11_cal3_p, pope"& qGestion &"_12_cal3_p,"
                
                ' pos : 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90
                sSQL = sSQL & " pope"& qGestion &"_1_cal4_p, pope"& qGestion &"_2_cal4_p, pope"& qGestion &"_3_cal4_p, pope"& qGestion &"_4_cal4_p, pope"& qGestion &"_5_cal4_p, pope"& qGestion &"_6_cal4_p, pope"& qGestion &"_7_cal4_p, pope"& qGestion &"_8_cal4_p, pope"& qGestion &"_9_cal4_p, pope"& qGestion &"_10_cal4_p, pope"& qGestion &"_11_cal4_p, pope"& qGestion &"_12_cal4_p,"
                
                ' pos : 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102
                sSQL = sSQL & " pope"& qGestion &"_1_cal5_p, pope"& qGestion &"_2_cal5_p, pope"& qGestion &"_3_cal5_p, pope"& qGestion &"_4_cal5_p, pope"& qGestion &"_5_cal5_p, pope"& qGestion &"_6_cal5_p, pope"& qGestion &"_7_cal5_p, pope"& qGestion &"_8_cal5_p, pope"& qGestion &"_9_cal5_p, pope"& qGestion &"_10_cal5_p, pope"& qGestion &"_11_cal5_p, pope"& qGestion &"_12_cal5_p,"
                
                ' calidad EJEC
                ' pos : 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114
                sSQL = sSQL & " pope"& qGestion &"_1_cal1_e, pope"& qGestion &"_2_cal1_e, pope"& qGestion &"_3_cal1_e, pope"& qGestion &"_4_cal1_e, pope"& qGestion &"_5_cal1_e, pope"& qGestion &"_6_cal1_e, pope"& qGestion &"_7_cal1_e, pope"& qGestion &"_8_cal1_e, pope"& qGestion &"_9_cal1_e, pope"& qGestion &"_10_cal1_e, pope"& qGestion &"_11_cal1_e, pope"& qGestion &"_12_cal1_e,"
                
                ' pos : 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126
                sSQL = sSQL & " pope"& qGestion &"_1_cal2_e, pope"& qGestion &"_2_cal2_e, pope"& qGestion &"_3_cal2_e, pope"& qGestion &"_4_cal2_e, pope"& qGestion &"_5_cal2_e, pope"& qGestion &"_6_cal2_e, pope"& qGestion &"_7_cal2_e, pope"& qGestion &"_8_cal2_e, pope"& qGestion &"_9_cal2_e, pope"& qGestion &"_10_cal2_e, pope"& qGestion &"_11_cal2_e, pope"& qGestion &"_12_cal2_e,"
                
                ' pos : 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138
                sSQL = sSQL & " pope"& qGestion &"_1_cal3_e, pope"& qGestion &"_2_cal3_e, pope"& qGestion &"_3_cal3_e, pope"& qGestion &"_4_cal3_e, pope"& qGestion &"_5_cal3_e, pope"& qGestion &"_6_cal3_e, pope"& qGestion &"_7_cal3_e, pope"& qGestion &"_8_cal3_e, pope"& qGestion &"_9_cal3_e, pope"& qGestion &"_10_cal3_e, pope"& qGestion &"_11_cal3_e, pope"& qGestion &"_12_cal3_e,"
                
                ' pos : 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150
                sSQL = sSQL & " pope"& qGestion &"_1_cal4_e, pope"& qGestion &"_2_cal4_e, pope"& qGestion &"_3_cal4_e, pope"& qGestion &"_4_cal4_e, pope"& qGestion &"_5_cal4_e, pope"& qGestion &"_6_cal4_e, pope"& qGestion &"_7_cal4_e, pope"& qGestion &"_8_cal4_e, pope"& qGestion &"_9_cal4_e, pope"& qGestion &"_10_cal4_e, pope"& qGestion &"_11_cal4_e, pope"& qGestion &"_12_cal4_e,"
                
                ' pos : 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162
                sSQL = sSQL & " pope"& qGestion &"_1_cal5_e, pope"& qGestion &"_2_cal5_e, pope"& qGestion &"_3_cal5_e, pope"& qGestion &"_4_cal5_e, pope"& qGestion &"_5_cal5_e, pope"& qGestion &"_6_cal5_e, pope"& qGestion &"_7_cal5_e, pope"& qGestion &"_8_cal5_e, pope"& qGestion &"_9_cal5_e, pope"& qGestion &"_10_cal5_e, pope"& qGestion &"_11_cal5_e, pope"& qGestion &"_12_cal5_e,"
                
                ' relativo PROG
                ' pos : 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174
                sSQL = sSQL & " pope"& qGestion &"_1_rel1_p, pope"& qGestion &"_2_rel1_p, pope"& qGestion &"_3_rel1_p, pope"& qGestion &"_4_rel1_p, pope"& qGestion &"_5_rel1_p, pope"& qGestion &"_6_rel1_p, pope"& qGestion &"_7_rel1_p, pope"& qGestion &"_8_rel1_p, pope"& qGestion &"_9_rel1_p, pope"& qGestion &"_10_rel1_p, pope"& qGestion &"_11_rel1_p, pope"& qGestion &"_12_rel1_p,"
                
                ' pos : 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186
                sSQL = sSQL & " pope"& qGestion &"_1_rel2_p, pope"& qGestion &"_2_rel2_p, pope"& qGestion &"_3_rel2_p, pope"& qGestion &"_4_rel2_p, pope"& qGestion &"_5_rel2_p, pope"& qGestion &"_6_rel2_p, pope"& qGestion &"_7_rel2_p, pope"& qGestion &"_8_rel2_p, pope"& qGestion &"_9_rel2_p, pope"& qGestion &"_10_rel2_p, pope"& qGestion &"_11_rel2_p, pope"& qGestion &"_12_rel2_p,"
                
                ' pos : 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198
                sSQL = sSQL & " pope"& qGestion &"_1_rel3_p, pope"& qGestion &"_2_rel3_p, pope"& qGestion &"_3_rel3_p, pope"& qGestion &"_4_rel3_p, pope"& qGestion &"_5_rel3_p, pope"& qGestion &"_6_rel3_p, pope"& qGestion &"_7_rel3_p, pope"& qGestion &"_8_rel3_p, pope"& qGestion &"_9_rel3_p, pope"& qGestion &"_10_rel3_p, pope"& qGestion &"_11_rel3_p, pope"& qGestion &"_12_rel3_p,"
                
                ' relativo EJEC
                ' pos : 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210
                sSQL = sSQL & " pope"& qGestion &"_1_rel1_e, pope"& qGestion &"_2_rel1_e, pope"& qGestion &"_3_rel1_e, pope"& qGestion &"_4_rel1_e, pope"& qGestion &"_5_rel1_e, pope"& qGestion &"_6_rel1_e, pope"& qGestion &"_7_rel1_e, pope"& qGestion &"_8_rel1_e, pope"& qGestion &"_9_rel1_e, pope"& qGestion &"_10_rel1_e, pope"& qGestion &"_11_rel1_e, pope"& qGestion &"_12_rel1_e,"
                
                ' pos : 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222
                sSQL = sSQL & " pope"& qGestion &"_1_rel2_e, pope"& qGestion &"_2_rel2_e, pope"& qGestion &"_3_rel2_e, pope"& qGestion &"_4_rel2_e, pope"& qGestion &"_5_rel2_e, pope"& qGestion &"_6_rel2_e, pope"& qGestion &"_7_rel2_e, pope"& qGestion &"_8_rel2_e, pope"& qGestion &"_9_rel2_e, pope"& qGestion &"_10_rel2_e, pope"& qGestion &"_11_rel2_e, pope"& qGestion &"_12_rel2_e,"
                
                ' pos : 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234 .... 235, 236
                sSQL = sSQL & " pope"& qGestion &"_1_rel3_e, pope"& qGestion &"_2_rel3_e, pope"& qGestion &"_3_rel3_e, pope"& qGestion &"_4_rel3_e, pope"& qGestion &"_5_rel3_e, pope"& qGestion &"_6_rel3_e, pope"& qGestion &"_7_rel3_e, pope"& qGestion &"_8_rel3_e, pope"& qGestion &"_9_rel3_e, pope"& qGestion &"_10_rel3_e, pope"& qGestion &"_11_rel3_e, pope"& qGestion &"_12_rel3_e, pope"& qGestion &"_ponderacion, pope"& qGestion &"_denominador"
                
                sSQL = sSQL & " FROM POperacion"& qGestion &""
                sSQL = sSQL & " WHERE aper_id = "& MatrizApertura(0,0) &" "
                MatrizResultado = MatrixBD(sSQL, 1)
                If VarType(MatrizResultado) = 8  then
                    CuantosRegistros = -1
                Else
                    CuantosRegistros = UBound(MatrizResultado,2)	
                End If

                    
                   
                  SumPA1p = 0
                  SumPA2p = 0
                  SumPA3p = 0
                  SumPA4p = 0
                  SumPA5p = 0
                  SumPA6p = 0
                  SumPA7p = 0
                  SumPA8p = 0
                  SumPA9p = 0
                  SumPA10p = 0
                  SumPA11p = 0
                  SumPA12p = 0
                  
                  SumEA1p = 0
                  SumEA2p = 0
                  SumEA3p = 0
                  SumEA4p = 0
                  SumEA5p = 0
                  SumEA6p = 0
                  SumEA7p = 0
                  SumEA8p = 0
                  SumEA9p = 0
                  SumEA10p = 0
                  SumEA11p = 0
                  SumEA12p = 0
                  %>
                  
                  <% for i = 0 to CuantosRegistros %>
            
                        <% If CInt(MatrizResultado(6,i)) = 1 Then %>	
                        <%
                          P1 = CDbl(MatrizResultado(19,i))
                          P2 = CDbl(MatrizResultado(20,i))
                          P3 = CDbl(MatrizResultado(21,i))
                          P4 = CDbl(MatrizResultado(22,i))
                          P5 = CDbl(MatrizResultado(23,i))
                          P6 = CDbl(MatrizResultado(24,i))
                          P7 = CDbl(MatrizResultado(25,i))
                          P8 = CDbl(MatrizResultado(26,i))
                          P9 = CDbl(MatrizResultado(27,i))
                          P10 = CDbl(MatrizResultado(28,i))
                          P11 = CDbl(MatrizResultado(29,i))
                          P12 = CDbl(MatrizResultado(30,i))
                          
                          E1 = CDbl(MatrizResultado(31,i))
                          E2 = CDbl(MatrizResultado(32,i))
                          E3 = CDbl(MatrizResultado(33,i))
                          E4 = CDbl(MatrizResultado(34,i))
                          E5 = CDbl(MatrizResultado(35,i))
                          E6 = CDbl(MatrizResultado(36,i))
                          E7 = CDbl(MatrizResultado(37,i))
                          E8 = CDbl(MatrizResultado(38,i))
                          E9 = CDbl(MatrizResultado(39,i))
                          E10 = CDbl(MatrizResultado(40,i))
                          E11 = CDbl(MatrizResultado(41,i))
                          E12 = CDbl(MatrizResultado(42,i))
              
                          Meta = CDbl(MatrizResultado(10,i))
                          Ponderacion = CDbl(MatrizResultado(16,i))
                          
                          If P1 = 0 Then : EF1 = 0 : Else : EF1 = E1/P1 : End If
                          If P2 = 0 Then : EF2 = 0 : Else : EF2 = E2/P2 : End If
                          If P3 = 0 Then : EF3 = 0 : Else : EF3 = E3/P3 : End If
                          If P4 = 0 Then : EF4 = 0 : Else : EF4 = E4/P4 : End If
                          If P5 = 0 Then : EF5 = 0 : Else : EF5 = E5/P5 : End If
                          If P6 = 0 Then : EF6 = 0 : Else : EF6 = E6/P6 : End If
                          If P7 = 0 Then : EF7 = 0 : Else : EF7 = E7/P7 : End If
                          If P8 = 0 Then : EF8 = 0 : Else : EF8 = E8/P8 : End If
                          If P9 = 0 Then : EF9 = 0 : Else : EF9 = E9/P9 : End If
                          If P10 = 0 Then : EF10 = 0 : Else : EF10 = E10/P10 : End If
                          If P11 = 0 Then : EF11 = 0 : Else : EF11 = E11/P11 : End If
                          If P12 = 0 Then : EF12 = 0 : Else : EF12 = E12/P12 : End If
                          %>
                          <%
                          PA1 = P1
                          PA2 = P1+P2
                          PA3 = P1+P2+P3
                          PA4 = P1+P2+P3+P4
                          PA5 = P1+P2+P3+P4+P5
                          PA6 = P1+P2+P3+P4+P5+P6
                          PA7 = P1+P2+P3+P4+P5+P6+P7
                          PA8 = P1+P2+P3+P4+P5+P6+P7+P8
                          PA9 = P1+P2+P3+P4+P5+P6+P7+P8+P9
                          PA10 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10
                          PA11 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11
                          PA12 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11+P12
                          %>
                          <%
                          EA1 = E1
                          EA2 = E1+E2
                          EA3 = E1+E2+E3
                          EA4 = E1+E2+E3+E4
                          EA5 = E1+E2+E3+E4+E5
                          EA6 = E1+E2+E3+E4+E5+E6
                          EA7 = E1+E2+E3+E4+E5+E6+E7
                          EA8 = E1+E2+E3+E4+E5+E6+E7+E8
                          EA9 = E1+E2+E3+E4+E5+E6+E7+E8+E9
                          EA10 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10
                          EA11 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11
                          EA12 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11+E12
                          %>
                          <%
                          If Meta = 0 Then : PA1p = 0 : Else : PA1p = PA1/Meta : End If
                          If Meta = 0 Then : PA2p = 0 : Else : PA2p = PA2/Meta : End If
                          If Meta = 0 Then : PA3p = 0 : Else : PA3p = PA3/Meta : End If
                          If Meta = 0 Then : PA4p = 0 : Else : PA4p = PA4/Meta : End If
                          If Meta = 0 Then : PA5p = 0 : Else : PA5p = PA5/Meta : End If
                          If Meta = 0 Then : PA6p = 0 : Else : PA6p = PA6/Meta : End If
                          If Meta = 0 Then : PA7p = 0 : Else : PA7p = PA7/Meta : End If
                          If Meta = 0 Then : PA8p = 0 : Else : PA8p = PA8/Meta : End If
                          If Meta = 0 Then : PA9p = 0 : Else : PA9p = PA9/Meta : End If
                          If Meta = 0 Then : PA10p = 0 : Else : PA10p = PA10/Meta : End If
                          If Meta = 0 Then : PA11p = 0 : Else : PA11p = PA11/Meta : End If
                          If Meta = 0 Then : PA12p = 0 : Else : PA12p = PA12/Meta : End If
                          
                          SumPA1p = SumPA1p + (PA1p*Ponderacion)
                          'response.Write PA1p & "=PA1p<br>"
                          'response.Write Ponderacion & "=Ponderacion<br>"
                          SumPA2p = SumPA2p + (PA2p*Ponderacion)
                          SumPA3p = SumPA3p + (PA3p*Ponderacion)
                          SumPA4p = SumPA4p + (PA4p*Ponderacion)
                          SumPA5p = SumPA5p + (PA5p*Ponderacion)
                          SumPA6p = SumPA6p + (PA6p*Ponderacion)
                          SumPA7p = SumPA7p + (PA7p*Ponderacion)
                          SumPA8p = SumPA8p + (PA8p*Ponderacion)
                          SumPA9p = SumPA9p + (PA9p*Ponderacion)
                          SumPA10p = SumPA10p + (PA10p*Ponderacion)
                          SumPA11p = SumPA11p + (PA11p*Ponderacion)
                          SumPA12p = SumPA12p + (PA12p*Ponderacion)
                          %>
                          <%
                          If Meta = 0 Then : EA1p = 0 : Else : EA1p = EA1/Meta : End If
                          If Meta = 0 Then : EA2p = 0 : Else : EA2p = EA2/Meta : End If
                          If Meta = 0 Then : EA3p = 0 : Else : EA3p = EA3/Meta : End If
                          If Meta = 0 Then : EA4p = 0 : Else : EA4p = EA4/Meta : End If
                          If Meta = 0 Then : EA5p = 0 : Else : EA5p = EA5/Meta : End If
                          If Meta = 0 Then : EA6p = 0 : Else : EA6p = EA6/Meta : End If
                          If Meta = 0 Then : EA7p = 0 : Else : EA7p = EA7/Meta : End If
                          If Meta = 0 Then : EA8p = 0 : Else : EA8p = EA8/Meta : End If
                          If Meta = 0 Then : EA9p = 0 : Else : EA9p = EA9/Meta : End If
                          If Meta = 0 Then : EA10p = 0 : Else : EA10p = EA10/Meta : End If
                          If Meta = 0 Then : EA11p = 0 : Else : EA11p = EA11/Meta : End If
                          If Meta = 0 Then : EA12p = 0 : Else : EA12p = EA12/Meta : End If
                          
                          SumEA1p = SumEA1p + (EA1p*Ponderacion)
                          SumEA2p = SumEA2p + (EA2p*Ponderacion)
                          SumEA3p = SumEA3p + (EA3p*Ponderacion)
                          SumEA4p = SumEA4p + (EA4p*Ponderacion)
                          SumEA5p = SumEA5p + (EA5p*Ponderacion)
                          SumEA6p = SumEA6p + (EA6p*Ponderacion)
                          SumEA7p = SumEA7p + (EA7p*Ponderacion)
                          SumEA8p = SumEA8p + (EA8p*Ponderacion)
                          SumEA9p = SumEA9p + (EA9p*Ponderacion)
                          SumEA10p = SumEA10p + (EA10p*Ponderacion)
                          SumEA11p = SumEA11p + (EA11p*Ponderacion)
                          SumEA12p = SumEA12p + (EA12p*Ponderacion)
                          %>
                          <%
                          If PA1p = 0 Then : EEA1 = 0 : Else : EEA1 = EA1p/PA1p : End If
                          If PA2p = 0 Then : EEA2 = 0 : Else : EEA2 = EA2p/PA2p : End If
                          If PA3p = 0 Then : EEA3 = 0 : Else : EEA3 = EA3p/PA3p : End If
                          If PA4p = 0 Then : EEA4 = 0 : Else : EEA4 = EA4p/PA4p : End If
                          If PA5p = 0 Then : EEA5 = 0 : Else : EEA5 = EA5p/PA5p : End If
                          If PA6p = 0 Then : EEA6 = 0 : Else : EEA6 = EA6p/PA6p : End If
                          If PA7p = 0 Then : EEA7 = 0 : Else : EEA7 = EA7p/PA7p : End If
                          If PA8p = 0 Then : EEA8 = 0 : Else : EEA8 = EA8p/PA8p : End If
                          If PA9p = 0 Then : EEA9 = 0 : Else : EEA9 = EA9p/PA9p : End If
                          If PA10p = 0 Then : EEA10 = 0 : Else : EEA10 = EA10p/PA10p : End If
                          If PA11p = 0 Then : EEA11 = 0 : Else : EEA11 = EA11p/PA11p : End If
                          If PA12p = 0 Then : EEA12 = 0 : Else : EEA12 = EA12p/PA12p : End If
                          %>
                        <% End If %>
                        
                        <% If CInt(MatrizResultado(6,i)) = 2 Then %>
                        <%
                        ' 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174
            ' pos : 199, 211, 223 /// 199 = nsam, 211 = nsap, 223 = nsafp
            If MatrizResultado(236,i) = 1 Then 
              If CDbl(MatrizResultado(199,i)) <> 0 Then
                relativo1E = (CDbl(MatrizResultado(211,i))/CDbl(MatrizResultado(199,i))) * 100
              Else
                relativo1E = 0
              End If
            Else
              If CDbl(MatrizResultado(199,i)) <> 0 Then
                relativo1E = (CDbl(MatrizResultado(211,i))/CDbl(MatrizResultado(199,i))) * CDbl(MatrizResultado(163,i))
              Else
                relativo1E = 0
              End If
            End If 
            
            ' pos : 200, 212, 224
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(200,i)) <> 0 Then
                relativo2E = (CDbl(MatrizResultado(212,i))/CDbl(MatrizResultado(200,i))) * 100
              Else
                relativo2E = 0
              End If
            Else
              If CDbl(MatrizResultado(200,i)) <> 0 Then
                relativo2E = (CDbl(MatrizResultado(212,i))/CDbl(MatrizResultado(200,i))) * CDbl(MatrizResultado(164,i))
              Else
                relativo2E = 0
              End If
            End If
            
            ' pos : 201, 213, 225
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(201,i)) <> 0 Then
                relativo3E = (CDbl(MatrizResultado(213,i))/CDbl(MatrizResultado(201,i))) * 100
              Else
                relativo3E = 0
              End If
            Else
              If CDbl(MatrizResultado(201,i)) <> 0 Then
                relativo3E = (CDbl(MatrizResultado(213,i))/CDbl(MatrizResultado(201,i))) * CDbl(MatrizResultado(165,i))
              Else
                relativo3E = 0
              End If
            End If
            
            ' pos : 202, 214, 226
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(202,i)) <> 0 Then
                relativo4E = (CDbl(MatrizResultado(214,i))/CDbl(MatrizResultado(202,i))) * 100
              Else
                relativo4E = 0
              End If
            Else
              If CDbl(MatrizResultado(202,i)) <> 0 Then
                relativo4E = (CDbl(MatrizResultado(214,i))/CDbl(MatrizResultado(202,i))) * CDbl(MatrizResultado(166,i))
              Else
                relativo4E = 0
              End If
            End If
              
            ' pos : 203, 215, 227
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(203,i)) <> 0 Then
                relativo5E = (CDbl(MatrizResultado(215,i))/CDbl(MatrizResultado(203,i))) * 100
              Else
                relativo5E = 0
              End If
            Else
              If CDbl(MatrizResultado(203,i)) <> 0 Then
                relativo5E = (CDbl(MatrizResultado(215,i))/CDbl(MatrizResultado(203,i))) * CDbl(MatrizResultado(167,i))
              Else
                relativo5E = 0
              End If
            End If
              
            ' pos : 204, 216, 228
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(204,i)) <> 0 Then
                relativo6E = (CDbl(MatrizResultado(216,i))/CDbl(MatrizResultado(204,i))) * 100
              Else
                relativo6E = 0
              End If
            Else
              If CDbl(MatrizResultado(204,i)) <> 0 Then
                relativo6E = (CDbl(MatrizResultado(216,i))/CDbl(MatrizResultado(204,i))) * CDbl(MatrizResultado(168,i))
              Else
                relativo6E = 0
              End If
            End If
            
            ' pos : 205 217, 229
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(205,i)) <> 0 Then
                relativo7E = (CDbl(MatrizResultado(217,i))/CDbl(MatrizResultado(205,i))) * 100
              Else
                relativo7E = 0
              End If
            Else
              If CDbl(MatrizResultado(205,i)) <> 0 Then
                relativo7E = (CDbl(MatrizResultado(217,i))/CDbl(MatrizResultado(205,i))) * CDbl(MatrizResultado(169,i))
              Else
                relativo7E = 0
              End If
            End If
            
            ' pos : 206, 218, 230
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(206,i)) <> 0 Then
                relativo8E = (CDbl(MatrizResultado(218,i))/CDbl(MatrizResultado(206,i))) * 100
              Else
                relativo8E = 0
              End If
            Else
              If CDbl(MatrizResultado(206,i)) <> 0 Then
                relativo8E = (CDbl(MatrizResultado(218,i))/CDbl(MatrizResultado(206,i))) * CDbl(MatrizResultado(170,i))
              Else
                relativo8E = 0
              End If
            End If	
          
            ' pos : 207, 219, 231
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(207,i)) <> 0 Then
                relativo9E = (CDbl(MatrizResultado(219,i))/CDbl(MatrizResultado(207,i))) * 100
              Else
                relativo9E = 0
              End If
            Else
              If CDbl(MatrizResultado(207,i)) <> 0 Then
                relativo9E = (CDbl(MatrizResultado(219,i))/CDbl(MatrizResultado(207,i))) * CDbl(MatrizResultado(171,i))
              Else
                relativo9E = 0
              End If
            End If
            
            ' pos : 208, 220, 232
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(208,i)) <> 0 Then
                relativo10E = (CDbl(MatrizResultado(220,i))/CDbl(MatrizResultado(208,i))) * 100
              Else
                relativo10E = 0
              End If
            Else
              If CDbl(MatrizResultado(208,i)) <> 0 Then
                relativo10E = (CDbl(MatrizResultado(220,i))/CDbl(MatrizResultado(208,i))) * CDbl(MatrizResultado(172,i))
              Else
                relativo10E = 0
              End If
            End If	
            
            ' pos : 209, 221, 233
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(209,i)) <> 0 Then
                relativo11E = (CDbl(MatrizResultado(221,i))/CDbl(MatrizResultado(209,i))) * 100
              Else
                relativo11E = 0
              End If
            Else
              If CDbl(MatrizResultado(209,i)) <> 0 Then
                relativo11E = (CDbl(MatrizResultado(221,i))/CDbl(MatrizResultado(209,i))) * CDbl(MatrizResultado(173,i))
              Else
                relativo11E = 0
              End If
            End If		
            
            ' pos : 210, 222, 234
            If MatrizResultado(236,i) = 1 Then
              If CDbl(MatrizResultado(210,i)) <> 0 Then
                relativo12E = (CDbl(MatrizResultado(222,i))/CDbl(MatrizResultado(210,i))) * 100
              Else
                relativo12E = 0
              End If
            Else
              If CDbl(MatrizResultado(210,i)) <> 0 Then
                relativo12E = (CDbl(MatrizResultado(222,i))/CDbl(MatrizResultado(210,i))) * CDbl(MatrizResultado(174,i))
              Else
                relativo12E = 0
              End If
            End If
                        %>
                          <%
                          P1 = CDbl(MatrizResultado(163,i))
                          P2 = CDbl(MatrizResultado(164,i))
                          P3 = CDbl(MatrizResultado(165,i))
                          P4 = CDbl(MatrizResultado(166,i))
                          P5 = CDbl(MatrizResultado(167,i))
                          P6 = CDbl(MatrizResultado(168,i))
                          P7 = CDbl(MatrizResultado(169,i))
                          P8 = CDbl(MatrizResultado(170,i))
                          P9 = CDbl(MatrizResultado(171,i))
                          P10 = CDbl(MatrizResultado(172,i))
                          P11 = CDbl(MatrizResultado(173,i))
                          P12 = CDbl(MatrizResultado(174,i))
                          
                          E1 = CDbl(relativo1E)
                          E2 = CDbl(relativo2E)
                          E3 = CDbl(relativo3E)
                          E4 = CDbl(relativo4E)
                          E5 = CDbl(relativo5E)
                          E6 = CDbl(relativo6E)
                          E7 = CDbl(relativo7E)
                          E8 = CDbl(relativo8E)
                          E9 = CDbl(relativo9E)
                          E10 = CDbl(relativo10E)
                          E11 = CDbl(relativo11E)
                          E12 = CDbl(relativo12E)
              
                          Meta = CDbl(MatrizResultado(10,i))
               Ponderacion = CDbl(MatrizResultado(16,i))
                          
                          If P1 = 0 Then : EF1 = 0 : Else : EF1 = E1/P1 : End If
                          If P2 = 0 Then : EF2 = 0 : Else : EF2 = E2/P2 : End If
                          If P3 = 0 Then : EF3 = 0 : Else : EF3 = E3/P3 : End If
                          If P4 = 0 Then : EF4 = 0 : Else : EF4 = E4/P4 : End If
                          If P5 = 0 Then : EF5 = 0 : Else : EF5 = E5/P5 : End If
                          If P6 = 0 Then : EF6 = 0 : Else : EF6 = E6/P6 : End If
                          If P7 = 0 Then : EF7 = 0 : Else : EF7 = E7/P7 : End If
                          If P8 = 0 Then : EF8 = 0 : Else : EF8 = E8/P8 : End If
                          If P9 = 0 Then : EF9 = 0 : Else : EF9 = E9/P9 : End If
                          If P10 = 0 Then : EF10 = 0 : Else : EF10 = E10/P10 : End If
                          If P11 = 0 Then : EF11 = 0 : Else : EF11 = E11/P11 : End If
                          If P12 = 0 Then : EF12 = 0 : Else : EF12 = E12/P12 : End If
                          %> 
                          <%
                          PA1 = P1
                          PA2 = P1+P2
                          PA3 = P1+P2+P3
                          PA4 = P1+P2+P3+P4
                          PA5 = P1+P2+P3+P4+P5
                          PA6 = P1+P2+P3+P4+P5+P6
                          PA7 = P1+P2+P3+P4+P5+P6+P7
                          PA8 = P1+P2+P3+P4+P5+P6+P7+P8
                          PA9 = P1+P2+P3+P4+P5+P6+P7+P8+P9
                          PA10 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10
                          PA11 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11
                          PA12 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11+P12
                          %>
                          <%
                          EA1 = E1
                          EA2 = E1+E2
                          EA3 = E1+E2+E3
                          EA4 = E1+E2+E3+E4
                          EA5 = E1+E2+E3+E4+E5
                          EA6 = E1+E2+E3+E4+E5+E6
                          EA7 = E1+E2+E3+E4+E5+E6+E7
                          EA8 = E1+E2+E3+E4+E5+E6+E7+E8
                          EA9 = E1+E2+E3+E4+E5+E6+E7+E8+E9
                          EA10 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10
                          EA11 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11
                          EA12 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11+E12
                          %> 
                          <%
                          If Meta = 0 Then : PA1p = 0 : Else : PA1p = PA1/Meta : End If
                          If Meta = 0 Then : PA2p = 0 : Else : PA2p = PA2/Meta : End If
                          If Meta = 0 Then : PA3p = 0 : Else : PA3p = PA3/Meta : End If
                          If Meta = 0 Then : PA4p = 0 : Else : PA4p = PA4/Meta : End If
                          If Meta = 0 Then : PA5p = 0 : Else : PA5p = PA5/Meta : End If
                          If Meta = 0 Then : PA6p = 0 : Else : PA6p = PA6/Meta : End If
                          If Meta = 0 Then : PA7p = 0 : Else : PA7p = PA7/Meta : End If
                          If Meta = 0 Then : PA8p = 0 : Else : PA8p = PA8/Meta : End If
                          If Meta = 0 Then : PA9p = 0 : Else : PA9p = PA9/Meta : End If
                          If Meta = 0 Then : PA10p = 0 : Else : PA10p = PA10/Meta : End If
                          If Meta = 0 Then : PA11p = 0 : Else : PA11p = PA11/Meta : End If
                          If Meta = 0 Then : PA12p = 0 : Else : PA12p = PA12/Meta : End If
                          
                          SumPA1p = SumPA1p + (PA1p*Ponderacion)
                          'response.Write PA1p & "=PA1p<br>"
                          'response.Write Ponderacion & "=Ponderacion<br>"
                          SumPA2p = SumPA2p + (PA2p*Ponderacion)
                          SumPA3p = SumPA3p + (PA3p*Ponderacion)
                          SumPA4p = SumPA4p + (PA4p*Ponderacion)
                          SumPA5p = SumPA5p + (PA5p*Ponderacion)
                          SumPA6p = SumPA6p + (PA6p*Ponderacion)
                          SumPA7p = SumPA7p + (PA7p*Ponderacion)
                          SumPA8p = SumPA8p + (PA8p*Ponderacion)
                          SumPA9p = SumPA9p + (PA9p*Ponderacion)
                          SumPA10p = SumPA10p + (PA10p*Ponderacion)
                          SumPA11p = SumPA11p + (PA11p*Ponderacion)
                          SumPA12p = SumPA12p + (PA12p*Ponderacion)
                          %>
                          <%
                          If Meta = 0 Then : EA1p = 0 : Else : EA1p = EA1/Meta : End If
                          If Meta = 0 Then : EA2p = 0 : Else : EA2p = EA2/Meta : End If
                          If Meta = 0 Then : EA3p = 0 : Else : EA3p = EA3/Meta : End If
                          If Meta = 0 Then : EA4p = 0 : Else : EA4p = EA4/Meta : End If
                          If Meta = 0 Then : EA5p = 0 : Else : EA5p = EA5/Meta : End If
                          If Meta = 0 Then : EA6p = 0 : Else : EA6p = EA6/Meta : End If
                          If Meta = 0 Then : EA7p = 0 : Else : EA7p = EA7/Meta : End If
                          If Meta = 0 Then : EA8p = 0 : Else : EA8p = EA8/Meta : End If
                          If Meta = 0 Then : EA9p = 0 : Else : EA9p = EA9/Meta : End If
                          If Meta = 0 Then : EA10p = 0 : Else : EA10p = EA10/Meta : End If
                          If Meta = 0 Then : EA11p = 0 : Else : EA11p = EA11/Meta : End If
                          If Meta = 0 Then : EA12p = 0 : Else : EA12p = EA12/Meta : End If
                          
                          SumEA1p = SumEA1p + (EA1p*Ponderacion)
                          SumEA2p = SumEA2p + (EA2p*Ponderacion)
                          SumEA3p = SumEA3p + (EA3p*Ponderacion)
                          SumEA4p = SumEA4p + (EA4p*Ponderacion)
                          SumEA5p = SumEA5p + (EA5p*Ponderacion)
                          SumEA6p = SumEA6p + (EA6p*Ponderacion)
                          SumEA7p = SumEA7p + (EA7p*Ponderacion)
                          SumEA8p = SumEA8p + (EA8p*Ponderacion)
                          SumEA9p = SumEA9p + (EA9p*Ponderacion)
                          SumEA10p = SumEA10p + (EA10p*Ponderacion)
                          SumEA11p = SumEA11p + (EA11p*Ponderacion)
                          SumEA12p = SumEA12p + (EA12p*Ponderacion)
                          %>
                          <%
                          If PA1p = 0 Then : EEA1 = 0 : Else : EEA1 = EA1p/PA1p : End If
                          If PA2p = 0 Then : EEA2 = 0 : Else : EEA2 = EA2p/PA2p : End If
                          If PA3p = 0 Then : EEA3 = 0 : Else : EEA3 = EA3p/PA3p : End If
                          If PA4p = 0 Then : EEA4 = 0 : Else : EEA4 = EA4p/PA4p : End If
                          If PA5p = 0 Then : EEA5 = 0 : Else : EEA5 = EA5p/PA5p : End If
                          If PA6p = 0 Then : EEA6 = 0 : Else : EEA6 = EA6p/PA6p : End If
                          If PA7p = 0 Then : EEA7 = 0 : Else : EEA7 = EA7p/PA7p : End If
                          If PA8p = 0 Then : EEA8 = 0 : Else : EEA8 = EA8p/PA8p : End If
                          If PA9p = 0 Then : EEA9 = 0 : Else : EEA9 = EA9p/PA9p : End If
                          If PA10p = 0 Then : EEA10 = 0 : Else : EEA10 = EA10p/PA10p : End If
                          If PA11p = 0 Then : EEA11 = 0 : Else : EEA11 = EA11p/PA11p : End If
                          If PA12p = 0 Then : EEA12 = 0 : Else : EEA12 = EA12p/PA12p : End If
                          %>
                        <% End If %>
                        
                        <% If CInt(MatrizResultado(6,i)) = 3 Then %>

                        <%
                        'response.Write "rela<br>"
                            ' pos : 43, 55, 67, 79, 91
                            calidad1P = 0
                            If CInt(MatrizResultado(43,i)) <> 0 Then calidad1P = CInt(MatrizResultado(43,i))
                            If CInt(MatrizResultado(55,i)) <> 0 Then calidad1P = CInt(MatrizResultado(55,i))
                            If CInt(MatrizResultado(67,i)) <> 0 Then calidad1P = CInt(MatrizResultado(67,i))
                            If CInt(MatrizResultado(79,i)) <> 0 Then calidad1P = CInt(MatrizResultado(79,i))
                            If CInt(MatrizResultado(91,i)) <> 0 Then calidad1P = CInt(MatrizResultado(91,i))
                            ' pos : 44, 56, 68, 80, 92
                            calidad2P = 0
                            If CInt(MatrizResultado(44,i)) <> 0 Then calidad2P = CInt(MatrizResultado(44,i))
                            If CInt(MatrizResultado(56,i)) <> 0 Then calidad2P = CInt(MatrizResultado(56,i))
                            If CInt(MatrizResultado(68,i)) <> 0 Then calidad2P = CInt(MatrizResultado(68,i))
                            If CInt(MatrizResultado(80,i)) <> 0 Then calidad2P = CInt(MatrizResultado(80,i))
                            If CInt(MatrizResultado(92,i)) <> 0 Then calidad2P = CInt(MatrizResultado(92,i))
                            ' pos : 45, 57, 69, 81, 93
                            calidad3P = 0
                            If CInt(MatrizResultado(45,i)) <> 0 Then calidad3P = CInt(MatrizResultado(45,i))
                            If CInt(MatrizResultado(57,i)) <> 0 Then calidad3P = CInt(MatrizResultado(57,i))
                            If CInt(MatrizResultado(69,i)) <> 0 Then calidad3P = CInt(MatrizResultado(69,i))
                            If CInt(MatrizResultado(81,i)) <> 0 Then calidad3P = CInt(MatrizResultado(81,i))
                            If CInt(MatrizResultado(93,i)) <> 0 Then calidad3P = CInt(MatrizResultado(93,i))
                            ' pos : 46, 58, 70, 82, 94
                            calidad4P = 0
                            If CInt(MatrizResultado(46,i)) <> 0 Then calidad4P = CInt(MatrizResultado(46,i))
                            If CInt(MatrizResultado(58,i)) <> 0 Then calidad4P = CInt(MatrizResultado(58,i))
                            If CInt(MatrizResultado(70,i)) <> 0 Then calidad4P = CInt(MatrizResultado(70,i))
                            If CInt(MatrizResultado(82,i)) <> 0 Then calidad4P = CInt(MatrizResultado(82,i))
                            If CInt(MatrizResultado(94,i)) <> 0 Then calidad4P = CInt(MatrizResultado(94,i))
                            ' pos : 47, 59, 71, 83, 95
                            calidad5P = 0
                            If CInt(MatrizResultado(47,i)) <> 0 Then calidad5P = CInt(MatrizResultado(47,i))
                            If CInt(MatrizResultado(59,i)) <> 0 Then calidad5P = CInt(MatrizResultado(59,i))
                            If CInt(MatrizResultado(71,i)) <> 0 Then calidad5P = CInt(MatrizResultado(71,i))
                            If CInt(MatrizResultado(83,i)) <> 0 Then calidad5P = CInt(MatrizResultado(83,i))
                            If CInt(MatrizResultado(95,i)) <> 0 Then calidad5P = CInt(MatrizResultado(95,i))
                            ' pos : 48, 60, 72, 84, 96
                            calidad6P = 0
                            If CInt(MatrizResultado(48,i)) <> 0 Then calidad6P = CInt(MatrizResultado(48,i))
                            If CInt(MatrizResultado(60,i)) <> 0 Then calidad6P = CInt(MatrizResultado(60,i))
                            If CInt(MatrizResultado(72,i)) <> 0 Then calidad6P = CInt(MatrizResultado(72,i))
                            If CInt(MatrizResultado(84,i)) <> 0 Then calidad6P = CInt(MatrizResultado(84,i))
                            If CInt(MatrizResultado(96,i)) <> 0 Then calidad6P = CInt(MatrizResultado(96,i))
                            ' pos : 49, 61, 73, 85, 97
                            calidad7P = 0
                            If CInt(MatrizResultado(49,i)) <> 0 Then calidad7P = CInt(MatrizResultado(49,i))
                            If CInt(MatrizResultado(61,i)) <> 0 Then calidad7P = CInt(MatrizResultado(61,i))
                            If CInt(MatrizResultado(73,i)) <> 0 Then calidad7P = CInt(MatrizResultado(73,i))
                            If CInt(MatrizResultado(85,i)) <> 0 Then calidad7P = CInt(MatrizResultado(85,i))
                            If CInt(MatrizResultado(97,i)) <> 0 Then calidad7P = CInt(MatrizResultado(97,i))
                            ' pos : 50, 62, 74, 86, 98
                            calidad8P = 0
                            If CInt(MatrizResultado(50,i)) <> 0 Then calidad8P = CInt(MatrizResultado(50,i))
                            If CInt(MatrizResultado(62,i)) <> 0 Then calidad8P = CInt(MatrizResultado(62,i))
                            If CInt(MatrizResultado(74,i)) <> 0 Then calidad8P = CInt(MatrizResultado(74,i))
                            If CInt(MatrizResultado(86,i)) <> 0 Then calidad8P = CInt(MatrizResultado(86,i))
                            If CInt(MatrizResultado(98,i)) <> 0 Then calidad8P = CInt(MatrizResultado(98,i))
                            ' pos : 51, 63, 75, 87, 99
                            calidad9P = 0
                            If CInt(MatrizResultado(51,i)) <> 0 Then calidad9P = CInt(MatrizResultado(51,i))
                            If CInt(MatrizResultado(63,i)) <> 0 Then calidad9P = CInt(MatrizResultado(63,i))
                            If CInt(MatrizResultado(75,i)) <> 0 Then calidad9P = CInt(MatrizResultado(75,i))
                            If CInt(MatrizResultado(87,i)) <> 0 Then calidad9P = CInt(MatrizResultado(87,i))
                            If CInt(MatrizResultado(99,i)) <> 0 Then calidad9P = CInt(MatrizResultado(99,i))
                            ' pos : 52, 64, 76, 88, 100
                            calidad10P = 0
                            If CInt(MatrizResultado(52,i)) <> 0 Then calidad10P = CInt(MatrizResultado(52,i))
                            If CInt(MatrizResultado(64,i)) <> 0 Then calidad10P = CInt(MatrizResultado(64,i))
                            If CInt(MatrizResultado(76,i)) <> 0 Then calidad10P = CInt(MatrizResultado(76,i))
                            If CInt(MatrizResultado(88,i)) <> 0 Then calidad10P = CInt(MatrizResultado(88,i))
                            If CInt(MatrizResultado(100,i)) <> 0 Then calidad10P = CInt(MatrizResultado(100,i))
                            ' pos : 53, 65, 77, 89, 101
                            calidad11P = 0
                            If CInt(MatrizResultado(53,i)) <> 0 Then calidad11P = CInt(MatrizResultado(53,i))
                            If CInt(MatrizResultado(65,i)) <> 0 Then calidad11P = CInt(MatrizResultado(65,i))
                            If CInt(MatrizResultado(77,i)) <> 0 Then calidad11P = CInt(MatrizResultado(77,i))
                            If CInt(MatrizResultado(89,i)) <> 0 Then calidad11P = CInt(MatrizResultado(89,i))
                            If CInt(MatrizResultado(101,i)) <> 0 Then calidad11P = CInt(MatrizResultado(101,i))
                            ' pos : 54, 66, 78, 90, 102
                            calidad12P = 0
                            If CInt(MatrizResultado(54,i)) <> 0 Then calidad12P = CInt(MatrizResultado(54,i))
                            If CInt(MatrizResultado(66,i)) <> 0 Then calidad12P = CInt(MatrizResultado(66,i))
                            If CInt(MatrizResultado(78,i)) <> 0 Then calidad12P = CInt(MatrizResultado(78,i))
                            If CInt(MatrizResultado(90,i)) <> 0 Then calidad12P = CInt(MatrizResultado(90,i))
                            If CInt(MatrizResultado(102,i)) <> 0 Then calidad12P = CInt(MatrizResultado(102,i))
                            
                            
                            ' pos : 103, 115, 127, 139, 151
                            calidad1E = 0
                            If CInt(MatrizResultado(103,i)) <> 0 Then calidad1E = CInt(MatrizResultado(103,i))
                            If CInt(MatrizResultado(115,i)) <> 0 Then calidad1E = CInt(MatrizResultado(115,i))
                            If CInt(MatrizResultado(127,i)) <> 0 Then calidad1E = CInt(MatrizResultado(127,i))
                            If CInt(MatrizResultado(139,i)) <> 0 Then calidad1E = CInt(MatrizResultado(139,i))
                            If CInt(MatrizResultado(151,i)) <> 0 Then calidad1E = CInt(MatrizResultado(151,i))
                            ' pos : 104, 116, 128, 140, 152
                            calidad2E = 0
                            If CInt(MatrizResultado(104,i)) <> 0 Then calidad2E = CInt(MatrizResultado(104,i))
                            If CInt(MatrizResultado(116,i)) <> 0 Then calidad2E = CInt(MatrizResultado(116,i))
                            If CInt(MatrizResultado(128,i)) <> 0 Then calidad2E = CInt(MatrizResultado(128,i))
                            If CInt(MatrizResultado(140,i)) <> 0 Then calidad2E = CInt(MatrizResultado(140,i))
                            If CInt(MatrizResultado(152,i)) <> 0 Then calidad2E = CInt(MatrizResultado(152,i))
                            ' pos : 105, 117, 129, 141, 153
                            calidad3E = 0
                            If CInt(MatrizResultado(105,i)) <> 0 Then calidad3E = CInt(MatrizResultado(105,i))
                            If CInt(MatrizResultado(117,i)) <> 0 Then calidad3E = CInt(MatrizResultado(117,i))
                            If CInt(MatrizResultado(129,i)) <> 0 Then calidad3E = CInt(MatrizResultado(129,i))
                            If CInt(MatrizResultado(141,i)) <> 0 Then calidad3E = CInt(MatrizResultado(141,i))
                            If CInt(MatrizResultado(153,i)) <> 0 Then calidad3E = CInt(MatrizResultado(153,i))
                            ' pos : 106, 118, 130, 142, 154
                            calidad4E = 0
                            If CInt(MatrizResultado(106,i)) <> 0 Then calidad4E = CInt(MatrizResultado(106,i))
                            If CInt(MatrizResultado(118,i)) <> 0 Then calidad4E = CInt(MatrizResultado(118,i))
                            If CInt(MatrizResultado(130,i)) <> 0 Then calidad4E = CInt(MatrizResultado(130,i))
                            If CInt(MatrizResultado(142,i)) <> 0 Then calidad4E = CInt(MatrizResultado(142,i))
                            If CInt(MatrizResultado(154,i)) <> 0 Then calidad4E = CInt(MatrizResultado(154,i))
                            ' pos : 107, 119, 131, 143, 155
                            calidad5E = 0
                            If CInt(MatrizResultado(107,i)) <> 0 Then calidad5E = CInt(MatrizResultado(107,i))
                            If CInt(MatrizResultado(119,i)) <> 0 Then calidad5E = CInt(MatrizResultado(119,i))
                            If CInt(MatrizResultado(131,i)) <> 0 Then calidad5E = CInt(MatrizResultado(131,i))
                            If CInt(MatrizResultado(143,i)) <> 0 Then calidad5E = CInt(MatrizResultado(143,i))
                            If CInt(MatrizResultado(155,i)) <> 0 Then calidad5E = CInt(MatrizResultado(155,i))
                            ' pos : 108, 120, 132, 144, 156
                            calidad6E = 0
                            If CInt(MatrizResultado(108,i)) <> 0 Then calidad6E = CInt(MatrizResultado(108,i))
                            If CInt(MatrizResultado(120,i)) <> 0 Then calidad6E = CInt(MatrizResultado(120,i))
                            If CInt(MatrizResultado(132,i)) <> 0 Then calidad6E = CInt(MatrizResultado(132,i))
                            If CInt(MatrizResultado(144,i)) <> 0 Then calidad6E = CInt(MatrizResultado(144,i))
                            If CInt(MatrizResultado(156,i)) <> 0 Then calidad6E = CInt(MatrizResultado(156,i))
                            ' pos : 109, 121, 133, 145, 157
                            calidad7E = 0
                            If CInt(MatrizResultado(109,i)) <> 0 Then calidad7E = CInt(MatrizResultado(109,i))
                            If CInt(MatrizResultado(121,i)) <> 0 Then calidad7E = CInt(MatrizResultado(121,i))
                            If CInt(MatrizResultado(133,i)) <> 0 Then calidad7E = CInt(MatrizResultado(133,i))
                            If CInt(MatrizResultado(145,i)) <> 0 Then calidad7E = CInt(MatrizResultado(145,i))
                            If CInt(MatrizResultado(157,i)) <> 0 Then calidad7E = CInt(MatrizResultado(157,i))
                            ' pos : 110, 122, 134, 146, 158
                            calidad8E = 0
                            If CInt(MatrizResultado(110,i)) <> 0 Then calidad8E = CInt(MatrizResultado(110,i))
                            If CInt(MatrizResultado(122,i)) <> 0 Then calidad8E = CInt(MatrizResultado(122,i))
                            If CInt(MatrizResultado(134,i)) <> 0 Then calidad8E = CInt(MatrizResultado(134,i))
                            If CInt(MatrizResultado(146,i)) <> 0 Then calidad8E = CInt(MatrizResultado(146,i))
                            If CInt(MatrizResultado(158,i)) <> 0 Then calidad8E = CInt(MatrizResultado(158,i))
                            ' pos : 111, 123, 135, 147, 159
                            calidad9E = 0
                            If CInt(MatrizResultado(111,i)) <> 0 Then calidad9E = CInt(MatrizResultado(111,i))
                            If CInt(MatrizResultado(123,i)) <> 0 Then calidad9E = CInt(MatrizResultado(123,i))
                            If CInt(MatrizResultado(135,i)) <> 0 Then calidad9E = CInt(MatrizResultado(135,i))
                            If CInt(MatrizResultado(147,i)) <> 0 Then calidad9E = CInt(MatrizResultado(147,i))
                            If CInt(MatrizResultado(159,i)) <> 0 Then calidad9E = CInt(MatrizResultado(159,i))
                            ' pos : 112, 124, 136, 148, 160
                            calidad10E = 0
                            If CInt(MatrizResultado(112,i)) <> 0 Then calidad10E = CInt(MatrizResultado(112,i))
                            If CInt(MatrizResultado(124,i)) <> 0 Then calidad10E = CInt(MatrizResultado(124,i))
                            If CInt(MatrizResultado(136,i)) <> 0 Then calidad10E = CInt(MatrizResultado(136,i))
                            If CInt(MatrizResultado(148,i)) <> 0 Then calidad10E = CInt(MatrizResultado(148,i))
                            If CInt(MatrizResultado(160,i)) <> 0 Then calidad10E = CInt(MatrizResultado(160,i))
                            ' pos : 113, 125, 137, 149, 161
                            calidad11E = 0
                            If CInt(MatrizResultado(113,i)) <> 0 Then calidad11E = CInt(MatrizResultado(113,i))
                            If CInt(MatrizResultado(125,i)) <> 0 Then calidad11E = CInt(MatrizResultado(125,i))
                            If CInt(MatrizResultado(137,i)) <> 0 Then calidad11E = CInt(MatrizResultado(137,i))
                            If CInt(MatrizResultado(149,i)) <> 0 Then calidad11E = CInt(MatrizResultado(149,i))
                            If CInt(MatrizResultado(161,i)) <> 0 Then calidad11E = CInt(MatrizResultado(161,i))
                            ' pos : 114, 126, 138, 150, 162
                            calidad12E = 0
                            If CInt(MatrizResultado(114,i)) <> 0 Then calidad12E = CInt(MatrizResultado(114,i))
                            If CInt(MatrizResultado(126,i)) <> 0 Then calidad12E = CInt(MatrizResultado(126,i))
                            If CInt(MatrizResultado(138,i)) <> 0 Then calidad12E = CInt(MatrizResultado(138,i))
                            If CInt(MatrizResultado(150,i)) <> 0 Then calidad12E = CInt(MatrizResultado(150,i))
                            If CInt(MatrizResultado(162,i)) <> 0 Then calidad12E = CInt(MatrizResultado(162,i))
                        %>
                          <%
                          P1 = CDbl(calidad1P)
                          P2 = CDbl(calidad2P)
                          P3 = CDbl(calidad3P)
                          P4 = CDbl(calidad4P)
                          P5 = CDbl(calidad5P)
                          P6 = CDbl(calidad6P)
                          P7 = CDbl(calidad7P)
                          P8 = CDbl(calidad8P)
                          P9 = CDbl(calidad9P)
                          P10 = CDbl(calidad10P)
                          P11 = CDbl(calidad11P)
                          P12 = CDbl(calidad12P)
                          
                          E1 = CDbl(calidad1E)
                          E2 = CDbl(calidad2E)
                          E3 = CDbl(calidad3E)
                          E4 = CDbl(calidad4E)
                          E5 = CDbl(calidad5E)
                          E6 = CDbl(calidad6E)
                          E7 = CDbl(calidad7E)
                          E8 = CDbl(calidad8E)
                          E9 = CDbl(calidad9E)
                          E10 = CDbl(calidad10E)
                          E11 = CDbl(calidad11E)
                          E12 = CDbl(calidad12E)
                          
                          Meta = CDbl(MatrizResultado(10,i))
                          Ponderacion = CDbl(MatrizResultado(16,i))
              
                          
                          If P1 = 0 Then : EF1 = 0 : Else : EF1 = E1/P1 : End If
                          If P2 = 0 Then : EF2 = 0 : Else : EF2 = E2/P2 : End If
                          If P3 = 0 Then : EF3 = 0 : Else : EF3 = E3/P3 : End If
                          If P4 = 0 Then : EF4 = 0 : Else : EF4 = E4/P4 : End If
                          If P5 = 0 Then : EF5 = 0 : Else : EF5 = E5/P5 : End If
                          If P6 = 0 Then : EF6 = 0 : Else : EF6 = E6/P6 : End If
                          If P7 = 0 Then : EF7 = 0 : Else : EF7 = E7/P7 : End If
                          If P8 = 0 Then : EF8 = 0 : Else : EF8 = E8/P8 : End If
                          If P9 = 0 Then : EF9 = 0 : Else : EF9 = E9/P9 : End If
                          If P10 = 0 Then : EF10 = 0 : Else : EF10 = E10/P10 : End If
                          If P11 = 0 Then : EF11 = 0 : Else : EF11 = E11/P11 : End If
                          If P12 = 0 Then : EF12 = 0 : Else : EF12 = E12/P12 : End If
                          %>
                          <%
                          PA1 = P1
                          PA2 = P1+P2
                          PA3 = P1+P2+P3
                          PA4 = P1+P2+P3+P4
                          PA5 = P1+P2+P3+P4+P5
                          PA6 = P1+P2+P3+P4+P5+P6
                          PA7 = P1+P2+P3+P4+P5+P6+P7
                          PA8 = P1+P2+P3+P4+P5+P6+P7+P8
                          PA9 = P1+P2+P3+P4+P5+P6+P7+P8+P9
                          PA10 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10
                          PA11 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11
                          PA12 = P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11+P12
                          %>
                          <%
                          EA1 = E1
                          EA2 = E1+E2
                          EA3 = E1+E2+E3
                          EA4 = E1+E2+E3+E4
                          EA5 = E1+E2+E3+E4+E5
                          EA6 = E1+E2+E3+E4+E5+E6
                          EA7 = E1+E2+E3+E4+E5+E6+E7
                          EA8 = E1+E2+E3+E4+E5+E6+E7+E8
                          EA9 = E1+E2+E3+E4+E5+E6+E7+E8+E9
                          EA10 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10
                          EA11 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11
                          EA12 = E1+E2+E3+E4+E5+E6+E7+E8+E9+E10+E11+E12
                          %> 
                          <%
                          If Meta = 0 Then : PA1p = 0 : Else : PA1p = PA1/Meta : End If
                          If Meta = 0 Then : PA2p = 0 : Else : PA2p = PA2/Meta : End If
                          If Meta = 0 Then : PA3p = 0 : Else : PA3p = PA3/Meta : End If
                          If Meta = 0 Then : PA4p = 0 : Else : PA4p = PA4/Meta : End If
                          If Meta = 0 Then : PA5p = 0 : Else : PA5p = PA5/Meta : End If
                          If Meta = 0 Then : PA6p = 0 : Else : PA6p = PA6/Meta : End If
                          If Meta = 0 Then : PA7p = 0 : Else : PA7p = PA7/Meta : End If
                          If Meta = 0 Then : PA8p = 0 : Else : PA8p = PA8/Meta : End If
                          If Meta = 0 Then : PA9p = 0 : Else : PA9p = PA9/Meta : End If
                          If Meta = 0 Then : PA10p = 0 : Else : PA10p = PA10/Meta : End If
                          If Meta = 0 Then : PA11p = 0 : Else : PA11p = PA11/Meta : End If
                          If Meta = 0 Then : PA12p = 0 : Else : PA12p = PA12/Meta : End If
                          
                          SumPA1p = SumPA1p + (PA1p*Ponderacion)
                          'response.Write PA1p & "=PA1p<br>"
                          'response.Write Ponderacion & "=Ponderacion<br>"
                          SumPA2p = SumPA2p + (PA2p*Ponderacion)
                          SumPA3p = SumPA3p + (PA3p*Ponderacion)
                          SumPA4p = SumPA4p + (PA4p*Ponderacion)
                          SumPA5p = SumPA5p + (PA5p*Ponderacion)
                          SumPA6p = SumPA6p + (PA6p*Ponderacion)
                          SumPA7p = SumPA7p + (PA7p*Ponderacion)
                          SumPA8p = SumPA8p + (PA8p*Ponderacion)
                          SumPA9p = SumPA9p + (PA9p*Ponderacion)
                          SumPA10p = SumPA10p + (PA10p*Ponderacion)
                          SumPA11p = SumPA11p + (PA11p*Ponderacion)
                          SumPA12p = SumPA12p + (PA12p*Ponderacion)
                          %>
                          <%
                          If Meta = 0 Then : EA1p = 0 : Else : EA1p = EA1/Meta : End If
                          If Meta = 0 Then : EA2p = 0 : Else : EA2p = EA2/Meta : End If
                          If Meta = 0 Then : EA3p = 0 : Else : EA3p = EA3/Meta : End If
                          If Meta = 0 Then : EA4p = 0 : Else : EA4p = EA4/Meta : End If
                          If Meta = 0 Then : EA5p = 0 : Else : EA5p = EA5/Meta : End If
                          If Meta = 0 Then : EA6p = 0 : Else : EA6p = EA6/Meta : End If
                          If Meta = 0 Then : EA7p = 0 : Else : EA7p = EA7/Meta : End If
                          If Meta = 0 Then : EA8p = 0 : Else : EA8p = EA8/Meta : End If
                          If Meta = 0 Then : EA9p = 0 : Else : EA9p = EA9/Meta : End If
                          If Meta = 0 Then : EA10p = 0 : Else : EA10p = EA10/Meta : End If
                          If Meta = 0 Then : EA11p = 0 : Else : EA11p = EA11/Meta : End If
                          If Meta = 0 Then : EA12p = 0 : Else : EA12p = EA12/Meta : End If
                          
                          SumEA1p = SumEA1p + (EA1p*Ponderacion)
                          SumEA2p = SumEA2p + (EA2p*Ponderacion)
                          SumEA3p = SumEA3p + (EA3p*Ponderacion)
                          SumEA4p = SumEA4p + (EA4p*Ponderacion)
                          SumEA5p = SumEA5p + (EA5p*Ponderacion)
                          SumEA6p = SumEA6p + (EA6p*Ponderacion)
                          SumEA7p = SumEA7p + (EA7p*Ponderacion)
                          SumEA8p = SumEA8p + (EA8p*Ponderacion)
                          SumEA9p = SumEA9p + (EA9p*Ponderacion)
                          SumEA10p = SumEA10p + (EA10p*Ponderacion)
                          SumEA11p = SumEA11p + (EA11p*Ponderacion)
                          SumEA12p = SumEA12p + (EA12p*Ponderacion)
                          %>
                          <%
                          If PA1p = 0 Then : EEA1 = 0 : Else : EEA1 = EA1p/PA1p : End If
                          If PA2p = 0 Then : EEA2 = 0 : Else : EEA2 = EA2p/PA2p : End If
                          If PA3p = 0 Then : EEA3 = 0 : Else : EEA3 = EA3p/PA3p : End If
                          If PA4p = 0 Then : EEA4 = 0 : Else : EEA4 = EA4p/PA4p : End If
                          If PA5p = 0 Then : EEA5 = 0 : Else : EEA5 = EA5p/PA5p : End If
                          If PA6p = 0 Then : EEA6 = 0 : Else : EEA6 = EA6p/PA6p : End If
                          If PA7p = 0 Then : EEA7 = 0 : Else : EEA7 = EA7p/PA7p : End If
                          If PA8p = 0 Then : EEA8 = 0 : Else : EEA8 = EA8p/PA8p : End If
                          If PA9p = 0 Then : EEA9 = 0 : Else : EEA9 = EA9p/PA9p : End If
                          If PA10p = 0 Then : EEA10 = 0 : Else : EEA10 = EA10p/PA10p : End If
                          If PA11p = 0 Then : EEA11 = 0 : Else : EEA11 = EA11p/PA11p : End If
                          If PA12p = 0 Then : EEA12 = 0 : Else : EEA12 = EA12p/PA12p : End If
                          %>
                        <% End If %>
                        
                  
                  <% Next %>
                  
                          <%
              MesActivo = Session("auth_granted_poa_mes")
              If Len(MesActivo) = 0 Then MesActivo = 0 
              MesActivo = CInt(MesActivo)
              %>
                          <%
                          If SumPA1p = 0 Then 
                           SumEF1 = 0
                           'response.Write "SumPA1p == 0" 
                            Else 
                            SumEF1 = SumEA1p/SumPA1p 
                            End If
                          If SumPA2p = 0 Then : SumEF2 = 0 : Else SumEF2 = SumEA2p/SumPA2p : End If
                          If SumPA3p = 0 Then : SumEF3 = 0 : Else SumEF3 = SumEA3p/SumPA3p : End If
                          If SumPA4p = 0 Then : SumEF4 = 0 : Else SumEF4 = SumEA4p/SumPA4p : End If
                          If SumPA5p = 0 Then : SumEF5 = 0 : Else SumEF5 = SumEA5p/SumPA5p : End If
                          If SumPA6p = 0 Then : SumEF6 = 0 : Else SumEF6 = SumEA6p/SumPA6p : End If
                          If SumPA7p = 0 Then : SumEF7 = 0 : Else SumEF7 = SumEA7p/SumPA7p : End If
                          If SumPA8p = 0 Then : SumEF8 = 0 : Else SumEF8 = SumEA8p/SumPA8p : End If
                          If SumPA9p = 0 Then : SumEF9 = 0 : Else SumEF9 = SumEA9p/SumPA9p : End If
                          If SumPA10p = 0 Then : SumEF10 = 0 : Else SumEF10 = SumEA10p/SumPA10p : End If
                          If SumPA11p = 0 Then : SumEF11 = 0 : Else SumEF11 = SumEA11p/SumPA11p : End If
                          If SumPA12p = 0 Then : SumEF12 = 0 : Else SumEF12 = SumEA12p/SumPA12p : End If
                          %>
                        <%
          'response.Write (SumEF1) & "---<br>"
          Select Case MesActivo
            Case 0 : 	Eficacia 	= 0
                  Programado 	= 0
                  Ejecutado 	= 0
            Case 1 : 	Eficacia 	= CDbl(SumEF1*100)
                  Programado 	= CDbl(SumPA1p)
                  Ejecutado 	= CDbl(SumEA1p)
            Case 2 : 	Eficacia 	= CDbl(SumEF2*100)
                  Programado 	= CDbl(SumPA2p)
                  Ejecutado 	= CDbl(SumEA2p)
            Case 3 : 	Eficacia 	= CDbl(SumEF3*100)
                  Programado 	= CDbl(SumPA3p)
                  Ejecutado 	= CDbl(SumEA3p)
            Case 4 : 	Eficacia 	= CDbl(SumEF4*100)
                  Programado 	= CDbl(SumPA4p)
                  Ejecutado 	= CDbl(SumEA4p)
            Case 5 : 	Eficacia 	= CDbl(SumEF5*100)
                  Programado 	= CDbl(SumPA5p)
                  Ejecutado 	= CDbl(SumEA5p)
            Case 6 : 	Eficacia 	= CDbl(SumEF6*100)
                  Programado 	= CDbl(SumPA6p)
                  Ejecutado 	= CDbl(SumEA6p)
            Case 7 : 	Eficacia 	= CDbl(SumEF7*100)
                  Programado 	= CDbl(SumPA7p)
                  Ejecutado 	= CDbl(SumEA7p)
            Case 8 : 	Eficacia 	= CDbl(SumEF8*100)
                  Programado 	= CDbl(SumPA8p)
                  Ejecutado 	= CDbl(SumEA8p)
            Case 9 : 	Eficacia 	= CDbl(SumEF9*100)
                  Programado 	= CDbl(SumPA9p)
                  Ejecutado 	= CDbl(SumEA9p)
            Case 10 : 	Eficacia 	= CDbl(SumEF10*100)
                  Programado 	= CDbl(SumPA10p)
                  Ejecutado 	= CDbl(SumEA10p)
            Case 11 : 	Eficacia 	= CDbl(SumEF11*100)
                  Programado 	= CDbl(SumPA11p)
                  Ejecutado 	= CDbl(SumEA11p)
            Case 12 : 	Eficacia 	= CDbl(SumEF12*100)
                  Programado 	= CDbl(SumPA12p)
                  Ejecutado 	= CDbl(SumEA12p)
            Case Else : Eficacia 	= CDbl(SumEF12*100)
                  Programado 	= CDbl(SumPA12p)
                  Ejecutado 	= CDbl(SumEA12p)
          End Select 	
          %>     

<%
'response.write("Eficacia::" & Round(Eficacia) & "<br>")
'response.write("Programado::" & Programado & "<br>")
'response.write("Ejecutado::" & Ejecutado & "<br>")
 %>
<link href="Estilos/EstilosPagina.css" rel="stylesheet" type="text/css">
<script src="Scripts/KendoUI/jquery.min.js"></script>
<script src="Scripts/KendoUI/kendo.dataviz.min.js"></script>
<script src="Scripts/KendoUI/console.js"></script>

<table width="400" border="0" cellspacing="1" cellpadding="0" >
	<tr>
    	<td>
        
        	<table width="50%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#ACACAC" style="border-collapse:collapse;">
                <tr align="center">
                    <td bgcolor="#DBDBDB">Estado</td>
                    <td bgcolor="#DBDBDB"><%=qMes%></td>
                </tr>
                <tr>
                    <td>% Prog. Acumulada</td>
                    <td align="right"><%=Formatnumber(Programado,2)%> %</td>
                </tr>
                <tr>
                    <td>% Ejec. Acumulada</td>
                    <td align="right"><%=Formatnumber(Ejecutado,2)%> %</td>
                </tr>
                <tr>
                    <td>Eficacia</td>
                    <td align="right"><strong><%=Formatnumber(Eficacia,2)%> %</strong></td>
                </tr>
           	</table>
        
        </td>
    </tr>
    <tr>
    	<td width="345" align="center" valign="middle">
        	   	<div id="gauge-container">
                	<div id="gauge"></div>
            	</div>
              
            	<script>
                function createGauge(labelPosition) {
                    $("#gauge").kendoRadialGauge({
                        theme: $(document).data("kendoSkin") || "default",

                        pointer: {
                            value: <%=Round(Eficacia)%>
                        },

                        scale: {
                            minorUnit: 5,
                            startAngle: -30,
                            endAngle: 210,
                            max: 100,
                            labels: {
                                position: labelPosition || "inside"
                            },
                            ranges: [
                                {
                                    from: 0,
                                    to: 75,
                                    color: "#F00"
                                }, {
                                    from: 75,
                                    to: 90,
                                    color: "#FF0"
                                }, {
                                    from: 90,
                                    to: 100,
                                    color: "#060"
                                }
                            ]
                        }
                    });
                }

                $(document).ready(function() {
                    createGauge();

                    $(".configuration").bind("change", refresh);

                    $(document).bind("kendo:skinChange", function(e) {
                        createGauge();
                    });

                    window.configuredRanges = $("#gauge").data("kendoRadialGauge").options.scale.ranges;
                });

                function refresh() {
                    var gauge = $("#gauge").data("kendoRadialGauge"),
                        showLabels = $("#labels").prop("checked"),
                        showRanges = $("#ranges").prop("checked"),
                        positionInputs = $("input[name='labels-position']"),
                        labelsPosition = positionInputs.filter(":checked").val(),
                        options = gauge.options;

                    options.transitions = false;
                    options.scale.labels.visible = showLabels;
                    options.scale.labels.position = labelsPosition;
                    options.scale.ranges = showRanges ? window.configuredRanges : [];

                    gauge.redraw();
                }
            	</script>
             
            	<style scoped>
                #gauge-container {
                    background: transparent url("Imagenes/gauge-container1.png") no-repeat 50% 50%;
                    width: 300px;
                    height: 300px;
                    text-align: center;
                 }

                #gauge {
                    width: 245px;
                    height: 245px;
                    margin: 0 auto 0;
                }
            	</style>
        	
		</td>
  	</tr>
</table>
